home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / clickme.first < prev    next >
Text File  |  1994-07-06  |  33KB  |  988 lines

  1. ; Dies ist das Install-Programm für die Meeting Pearls Volume 1
  2. ; Es ist Copyright (C) 1994 by Angela Schmidt, Neu-Ulm, Germany und darf
  3. ; AUSSCHLIESSLICH auf den Meeting Pearls verbreitet werden! Weitergehende
  4. ; Nutzung und Verbreitung, insbesondere Nutzung und Verbreitung auf
  5. ; anderen CD-ROMs, sind NICHT gestattet!
  6. ; Es ist NICHT gestattet, geänderte Versionen dieses Skripts in
  7. ; irgendeiner Art zu verbreiten!
  8. ; Für Sondergenehmigungen setzen Sie sich bitte mit
  9. ;    Angela Schmidt
  10. ;    Klosterweg 28/I501
  11. ;    D-76131 Karlsruhe
  12. ;    Germany
  13. ; in Verbindung!
  14.  
  15. (if (<= (/ (getversion) 65536) 34)
  16.     (
  17.         (set oldlevel @user-level)
  18.         (user 2)
  19.     )
  20. )
  21.  
  22. (set langnum
  23.     (askchoice
  24.         (prompt "")
  25.         (help @askchoice-help)
  26.         (choices
  27.             "Deutsch"
  28.             "English"
  29. ;            "Français"
  30.         )
  31.         (default
  32.             (if (patmatch @language "Deutsch")
  33.                 0
  34.                 (if (patmatch @language "English")
  35.                     1
  36. ;                    (if (patmatch @language "Français")
  37. ;                        2
  38. ;                        0
  39. ;                    )
  40.                     0
  41.                 )
  42.             )
  43.         )
  44.     )
  45. )
  46.  
  47. (if (<= (/ (getversion) 65536) 34)
  48.     (user oldlevel)
  49. )
  50.  
  51. (if (= langnum 0) (set langstring "Deutsch"))
  52. (if (= langnum 1) (set langstring "English"))
  53. (if (= langnum 2) (set langstring "Français"))
  54.  
  55. ; Hier folgen die Strings, die für die deutsche Übersetzung benötigt
  56. ; werden. Bei Übersetzungen in andere Sprachen einfach den folgenden
  57. ; Block komplett kopieren und die Texte ändern. Die Steuerzeichen
  58. ; sollten unverändert bleiben! Wer irgendwo eine Zeile hinzufügen oder
  59. ; löschen möchte, muß dir Anzahl der "%s" entsprechend anpassen - für
  60. ; jede Zeile steht ein "%s".
  61.  
  62. (if (patmatch langstring "Deutsch")
  63.     (
  64.         (set warning_old_os
  65.             (
  66.                 "%s%s%s"
  67.                 "Bitte bringen Sie Ihr Betriebssystem auf den neuesten Stand, denn ansonsten haben Sie mit Problemen zu rechnen! "
  68.                 "Diese CD läuft zwar prinzipiell auch unter Kickstart 1.2/1.3, aber mit dem Anzeigen von Bildern und einigen anderen Dingen werden Sie Ihre "
  69.                 "Probleme haben. Wählen Sie bitte die Hilfe-Seite für nähere Infos!"
  70.             )
  71.         )
  72.         (set warning_old_os_help_1
  73.             (
  74.                 "%s%s%s"
  75.                 "Leider, leider haben wir kein Bildanzeigeprogramm gefunden, das unter Kickstart 1.2/1.3 läuft und das alle wichtigen Bild-Formate (ILBM, GIF, JPEG) anzeigen kann. "
  76.                 "Das wird Ihnen das Anschauen unserer wirklich sehenswerten Bilder bedauerlicherweise nicht sehr komfortabel machen. "
  77.                 "Zunächst sollten Sie in jedem Fall im \"Expert-\" oder \"Intermediate-Mode\" dieses Install-Skripts das von Ihnen bevorzugte Bildanzeigeprogramm "
  78.             )
  79.         )
  80.         (set warning_old_os_help_2
  81.             (
  82.                 "%s%s%s%s"
  83.                 "auswählen. Sie müssen aber selber sicherstellen, daß dieses Programm das jeweilige Bildformat anzeigen kann!!! "
  84.                 "Für die Fraktale brauchen Sie zum Beispiel ein Programm, das GIF-Bilder anzeigen kann "
  85.                 "und für die Meeting-Bilder eines, welches JPEGs anzeigt. In der Regel erkennen Sie JPEG-Bilder "
  86.                 "an der Endung \".jpg\" und GIF-Bilder an der Endung \".gif\"."
  87.             )
  88.         )
  89.         (set no_std_textreader
  90.             ("%s%s%s%s%s"
  91.                 "Hoppla!\n\n"
  92.                 "Auf diesem System existiert \""
  93.                 (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More"))
  94.                 "\" nicht!\n\n"
  95.                 "Unter diesen Umständen muß ich mich leider verabschieden!"
  96.             )
  97.         )
  98.         (set no_std_pictureviewer
  99.             ("%s%s%s%s%s"
  100.                 "Hoppla!\n\n"
  101.                 "Auf diesem System existiert \""
  102.                 (expandpath ":C/VT")
  103.                 "\" nicht!\n\n"
  104.                 "Unter diesen Umständen muß ich mich leider verabschieden!"
  105.             )
  106.         )
  107.         (set intro_msg
  108.             ("%s%s"
  109.                 "Dies ist das Installier-Skript für die Meeting Pearls CD!\n\n"
  110.                 "Wenn Sie dieses Skript das erste Mal starten, wählen Sie bitte JETZT die Hilfe-Seite!\n\n"
  111.             )
  112.         )
  113.         (set intro_help_1
  114.             ("%s%s%s%s%s%s%s%s%s"
  115.                 "Im Laufe der Installation werden Sie zwischen verschiedenen Text- und "
  116.                 "Bildanzeigeprogrammen wählen können. Wenn ein derartiges Anzeigeprogramm "
  117.                 "eingeklammert dargestellt wird, so konnte es auf Ihrem System nicht gefunden "
  118.                 "werden und Sie sollten es deshalb nicht anwählen. Falls Sie es trotzdem "
  119.                 "wählen, wird das voreingestellte Anzeigeprogramm benutzt, also entweder \""
  120.                 (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  121.                 "\" oder \""
  122.                 (expandpath ":C/VT")
  123.                 "\".\n\n"
  124.             )
  125.         )
  126.         (set intro_help_2
  127.             ("%s%s%s%s"
  128.                 "Diese Installation legt dann ein paar Assigns an, damit Sie Ihr "
  129.                 "Lieblings-Textanzeigeprogramm sowie Ihr Lieblings-Bildanzeigeprogramm "
  130.                 "benutzen können! Auf Wunsch werden diese Assigns auch in Ihre User-Startup "
  131.                 "aufgenommen.\n\n"
  132.             )
  133.         )
  134.         (set intro_help_3
  135.             ("%s%s%s%s%s"
  136.                 "Des weiteren können Sie mit diesem Installier-Programm Verzeichnisse, "
  137.                 "die auf dieser CD enthalten sind, auf einen anderen Datenträger kopieren "
  138.                 "und dabei gleichzeitig automatisch die DefaultTools der enthaltenen Dateien"
  139.                 (if (>= (/ (getversion) 65536) 37)
  140.                     ", sowie die Protectionflags und Kommentare, die durch das ISO-Filesystem leider verlorengegangen sind, "
  141.                     " "
  142.                 )
  143.                 "wieder anpassen lassen!\n\n"
  144.             )
  145.         )
  146.         (set intro_help_4
  147.             ("%s%s%s%s%s%s"
  148.                 "Wenn Sie Verzeichnisse auf Ihre Festplatte kopieren möchten, so wird "
  149.                 "DRINGEND empfohlen, Anzeigeprogramme auszuwählen, die auf Ihrer "
  150.                 "Festplatte liegen! Wenn Sie diesen Tip nicht beherzigen, werden Sie - "
  151.                 "wann immer Sie eine installierte \"Readme-Datei\" anklicken - die "
  152.                 (expandpath ":")
  153.                 " CD einlegen müssen.\n\n"
  154.             )
  155.         )
  156.         (set intro_help_5
  157.             ("%s%s"
  158.                 "Falls Sie jedoch vorerst noch nichts auf Ihre Festplatte kopieren "
  159.                 "möchten, können Sie guten Gewissens die voreingestellten Programme wählen."
  160.             )
  161.         )
  162.         (set others_msg
  163.             "Andere..."
  164.         )
  165.         (set choose_textreader_msg
  166.             ("%s%s%s"
  167.                 "Bitte wählen Sie das Textanzeigeprogramm, das Sie bevorzugen!\n\nEingeklammerte Textanzeigeprogramme sind auf Ihrem System nicht vorhanden und werden durch \""
  168.                 (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  169.                 "\" ersetzt!"
  170.             )
  171.         )
  172.         (set pick_textreader_per_filereq
  173.             "Ok, bitte wählen Sie ihr bevorzugtes Textanzeigeprogramm!"
  174.         )
  175.         (set choose_picviewer_msg
  176.             ("%s%s%s%s%s%s"
  177.                 "Bitte wählen Sie das Bildanzeigeprogramm, das Sie bevorzugen! "
  178.                 "Eingeklammerte Bildanzeigeprogramme sind auf Ihrem System nicht vorhanden und werden durch \""
  179.                 "MP_Vol1:C/VT"
  180.                 "\" ersetzt! \"MP_Vol1:\" ist übrigens nur eine kürzere Schreibweise für \""
  181.                 (expandpath ":")
  182.                 "\"."
  183.             )
  184.         )
  185.         (set pick_picviewer_per_filereq
  186.             "Ok, bitte wählen Sie ihr bevorzugtes Bildanzeigeprogramm!"
  187.         )
  188.         (set wanna_copy_dirs_to_hd
  189.             ("%s%s%s%s%s"
  190.                 "Wollen Sie nun gleich noch ein paar Verzeichnisse auf Ihre Festplatte kopieren? "
  191.                 "Das Interessante daran ist, daß dieses Skript dann automatisch die DefaultTools auf "
  192.                 "die von Ihnen eingestellten Anzeigeprogramme ändert! Sinnigerweise sollten Sie dann "
  193.                 "aber keine Anzeigeprogramme eingestellt haben, die auf der CD liegen..."
  194.                 (if (>= (/ (getversion) 65536) 37)
  195.                     " Außerdem werden sämtliche Protectionflags und Kommentare, die durch das ISO-Dateisystem leider verlorengegangen sind, im Zielverzeichnis wieder restauriert."
  196.                     ""
  197.                 )
  198.             )
  199.         )
  200.         (set wanna_copy_yes_or_no
  201.             "Klicken Sie auf \"Ja\", wenn Sie Programme auf Ihre Festplatte kopieren wollen, andernfalls auf \"Nein\"."
  202.         )
  203.         (set ja_antwort
  204.             "Ja"
  205.         )
  206.         (set nein_antwort
  207.             "Nein"
  208.         )
  209.         (set hoppla_reader_on_cd
  210.             ("%s%s%s%s"
  211.                 "Hoppla! Das von Ihnen gewählte Text-Anzeigeprogramm liegt auf der CD! "
  212.                 "Beachten Sie, daß Sie die CD dann in Zukunft immer einlegen müssen, "
  213.                 "wenn Sie Texte lesen wollen, die in der Schublade liegen, die Sie kopieren wollen! "
  214.                 "Optional können Sie die Installation natürlich jetzt auch abbrechen."
  215.             )
  216.         )
  217.         (set hoppla_viewer_on_cd
  218.             ("%s%s%s%s"
  219.                 "Hoppla! Das von Ihnen gewählte Bild-Anzeigeprogramm liegt auf der CD! "
  220.                 "Beachten Sie, daß Sie die CD dann in Zukunft immer einlegen müssen, "
  221.                 "wenn Sie Bilder anschauen wollen, die in der Schublade liegen, die Sie kopieren wollen! "
  222.                 "Optional können Sie die Installation natürlich jetzt auch abbrechen."
  223.             )
  224.         )
  225.         (set choose_dir_to_copy_from
  226.             "Bitte wählen Sie das Verzeichnis, das Sie von CD auf ihre Festplatte kopieren möchten!"
  227.         )
  228.         (set choose_dir_to_copy_to
  229.             "Bitte wählen Sie ein Verzeichnis auf Ihrer Festplatte, in das Sie das von der CD gewählte Verzeichnis kopieren möchten!"
  230.         )
  231.         (set ready_to_copy
  232.             "Sind Sie bereit, das Verzeichnis \"%s\" ins Verzeichnis \"%s\" zu kopieren?"
  233.         )
  234.         (set ready_to_copy_help
  235.             "Es wird im Verzeichnis \"%s\" dann ein neues Verzeichnis mit dem Namen \"%s\" eingerichtet!"
  236.         )
  237.         (set ready_to_copy_1
  238.             "Sind Sie bereit, das Verzeichnis \""
  239.         )
  240.         (set ready_to_copy_2
  241.             "\" ins Verzeichnis \""
  242.         )
  243.         (set ready_to_copy_3
  244.             "\" zu kopieren?"
  245.         )
  246.         (set replacing_defaulttools
  247.             "Es werden einige Defaulttools - falls vorhanden - angepaßt!"
  248.         )
  249.         (set restoring_flags
  250.             "Es werden die originalen Protectionflags und Kommentare, die auf der CD verlorengegangen sind, wieder hergestellt!"
  251.         )
  252.         (set copy_more_dirs
  253.             "Möchten Sie noch mehr Verzeichnisse kopieren?"
  254.         )
  255.         (set copy_more_dirs_help
  256.             "Wenn Sie noch mehr Verzeichnisse kopieren möchten, dann wählen Sie nun \"Ja\", ansonsten \"Nein\""
  257.         )
  258.         (set save_display_programs
  259.             "Sollen die Anzeigeprogramme dauerhaft eingestellt werden, so daß sie auch einen Reset überleben?"
  260.         )
  261.         (set save_display_programs_help
  262.             ("%s%s%s"
  263.                 "Wenn Sie nun \"Ja\" wählen, werden die Anzeigeprogramme in Form von Assigns in Ihre "
  264.                 "S:user-startup eingetragen. Falls die von Ihnen gewählten Programme auf der CD liegen, "
  265.                 "rate ich davon ab!"
  266.             )
  267.         )
  268.         (set add_assigns_to_userstartup
  269.             ("%s%s%s%s"
  270.                 "Die Assigns werden nun an Ihre Datei \"S:user-startup\" angehängt, damit Sie in "
  271.                 "Zukunft bei Benutzung dieser CD den Installer nicht jedes Mal neu rufen müssen! "
  272.                 "Wenn Sie dies nicht wünschen, ist dies die letzte Möglichkeit, diesen Punkt durch "
  273.                 "Betätigung des richtigen Gadgets zu überspringen."
  274.             )
  275.         )
  276.         (set add_assigns_to_userstartup_help
  277.             ("%s%s"
  278.                 "Folgende Assigns werden hinzugefügt: "
  279.                 (if (>= (/ (getversion) 65536) 37)
  280.                     ("Assign MP_READER: %s DEFER\nAssign MP_VIEWER: %s DEFER" mp_reader mp_viewer)
  281.                     ("Assign MP_READER: %s\nAssign MP_VIEWER: %s" mp_reader mp_viewer)
  282.                 )
  283.             )
  284.         )
  285.         (set wanna_copy_to_envarc
  286.             ("%s%s%s"
  287.                 "Wollen Sie einige Umgebungsvariablen nach ENVARC: kopieren? "
  288.                 "Dieses Install-Skript macht Gebrauch von diesen Variablen, falls "
  289.                 "sie existieren und läuft dann deutlich komfortabler."
  290.             )
  291.         )
  292.         (set wanna_copy_to_envarc_help
  293.             ("%s%s%s%s%s"
  294.                 "Wenn Sie die Umgebungsvariablen nicht kopieren, wird dieses "
  295.                 "Install-Skript nach einem Reset Ihre bereits getroffenen "
  296.                 "Entscheidungen nicht mehr kennen und daher nicht mehr voreinstellen "
  297.                 "können. Andrerseits verlängert das Kopieren die Bootzeit ein "
  298.                 "klitzekleinwenig..."
  299.             )
  300.         )
  301.         (set activate_more_assigns
  302.             ("%s%s%s%s"
  303.                 "Sollen noch ein paar weitere Assigns hinzugefügt werden, damit einige "
  304.                 "auf der CD installierte Programme direkt startbar werden? (Diese Assigns "
  305.                 "werden nicht in S:user-startup eingefügt - nach dem Booten merken Sie also "
  306.                 "nicht mehr davon!)"
  307.             )
  308.         )
  309.         (set activate_more_assigns_help
  310.             ("%s%s"
  311.                 "Ich empfehle Ihnen \"Ja\" - es kann nichts kaputtgehen und spätestens "
  312.                 "nach einem Reset ist alles wieder beim Alten!"
  313.             )
  314.         )
  315.     )
  316. )
  317. (if (patmatch langstring "English")
  318.     ; thanx to Martin Kopp for translation!
  319.     ; some later additions from Angela Schmidt
  320.     (
  321.         (set warning_old_os
  322.             (
  323.                 "%s%s%s"
  324.                 "Please update the operating system, because otherwise there will be some problems using this CD. "
  325.                 "In principle this CD is still usable under Kickstart 1.2/1.3, BUT you will find it difficult to view all pictures and several other things will not work either. "
  326.                 "For further information you should select the help-page now!"
  327.             )
  328.         )
  329.         (set warning_old_os_help_1
  330.             (
  331.                 "%s%s%s"
  332.                 "We are sorry about that, but we could not find an Kickstart 1.2/1.3 picture viewing program that is capable of showing all the major picture formats (ILBM, GIF, JPEG). "
  333.                 "Therefore you will unfortunately have to resort to a severly less comfortable way of viewing the pictures that are really worth seeing. "
  334.                 "We propose that you use the \"Expert mode\" or \"Intermediate mode\" of this installer script to choose your preferred picture viewing program. "
  335.             )
  336.         )
  337.         (set warning_old_os_help_2
  338.             (
  339.                 "%s%s%s%s"
  340.                 "You have to make sure that this program can show the respective picture format!!! "
  341.                 "To view the fractals you have for example to choose a program that can show you GIF pictures and "
  342.                 "for the meeting pictures one that can display JPEG files. Generally you can recognize JPEG pictures "
  343.                 "by the ending \".jpg\" and GIF pictures by the ending \".gif\"."
  344.             )
  345.         )
  346.         (set no_std_textreader
  347.             ("%s%s%s%s%s"
  348.                 "Oh No!!!\n\n"
  349.                 "There is no \""
  350.                 (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More"))
  351.                 "\" on this system!\n\n"
  352.                 "I'm sorry! But this is not tolerable. I'm leaving!"
  353.             )
  354.         )
  355.         (set no_std_pictureviewer
  356.             ("%s%s%s%s%s"
  357.                 "Oh No!!!\n\n"
  358.                 "There is no \""
  359.                 (expandpath ":C/VT")
  360.                 "\" on this system!\n\n"
  361.                 "I'm sorry! But this is not tolerable. I'm leaving!"
  362.             )
  363.         )
  364.         (set intro_msg
  365.             ("%s%s"
  366.                 "This is the Installer script for the Meeting Pearls CD!\n\n"
  367.                 "If you start this script for the first time, please choose the Help-page NOW!\n\n"
  368.             )
  369.         )
  370.         (set intro_help_1
  371.             ("%s%s%s%s%s%s%s%s%s"
  372.                 "During the process of installation you will be able to choose among "
  373.                 "several text and picture viewing programs. If one of these programs "
  374.                 "is shown in braces, it could not be located on your system and you "
  375.                 "should therefore not select it. If you insist on selecting it, one "
  376.                 "of the following defaults will be used instead \""
  377.                 (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  378.                 "\" or \""
  379.                 (expandpath ":C/VT")
  380.                 "\".\n\n"
  381.             )
  382.         )
  383.         (set intro_help_2
  384.             ("%s%s%s%s"
  385.                 "This installation will then establish some Assigns, that allow you "
  386.                 "to use your preferred text viewing program and picture viewing program. "
  387.                 "If you want it so, these Assigns can be incorporated into your user-"
  388.                 "startup script.\n\n"
  389.             )
  390.         )
  391.         (set intro_help_3
  392.             ("%s%s%s%s%s"
  393.                 "As an additional feature of this install script you can copy drawers "
  394.                 "that are part of this CD onto another storage medium (disk, hard disk etc.) "
  395.                 "and have the default tools of the files in question "
  396.                 (if (>= (/ (getversion) 65536) 37)
  397.                     "and their protection flags and comments, which have been lost through the ISO-Filesystem, "
  398.                     ""
  399.                 )
  400.                 "automagically changed!\n\n"
  401.             )
  402.         )
  403.         (set intro_help_4
  404.             ("%s%s%s%s%s%s"
  405.                 "If you want to copy drawers to your hard disk you are URGENTLY advised "
  406.                 "to choose viewer programs that are located on your hard disk!!! "
  407.                 "If you do not adhere to this rule you must be prepared - every time "
  408.                 "you select an installed \"Readme-file\" - to insert the "
  409.                 (expandpath ":")
  410.                 "-CD into your CD-ROM drive.\n\n"
  411.             )
  412.         )
  413.         (set intro_help_5
  414.             ("%s%s"
  415.                 "If you do not plan to copy anything to your hard disk at the moment you "
  416.                 "may safely select the default programs."
  417.             )
  418.         )
  419.         (set others_msg
  420.             "Other..."
  421.         )
  422.         (set choose_textreader_msg
  423.             ("%s%s%s"
  424.                 "Please select the preferred text viewing program!\n\nText viewers that are enclosed in braces are not available on your system and will be substituted by the \""
  425.                 (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/MuchMore"))
  426.                 "\" program!"
  427.             )
  428.         )
  429.         (set pick_textreader_per_filereq
  430.             "Ok, please select the text viewing program you prefer!"
  431.         )
  432.         (set choose_picviewer_msg
  433.             ("%s%s%s%s%s%s"
  434.                 "Please select the preferred picture viewing program! "
  435.                 "Picture viewers that are enclosed in braces are not available on your system and will be substituted by the \""
  436.                 "MP_Vol1:C/VT"
  437.                 "\" program! \"MP_Vol1:\" is by the way only an abbreviation for \""
  438.                 (expandpath ":")
  439.                 "\"."
  440.             )
  441.         )
  442.         (set pick_picviewer_per_filereq
  443.             "Ok, please select the picture viewing program you prefer!"
  444.         )
  445.         (set wanna_copy_dirs_to_hd
  446.             ("%s%s%s%s%s"
  447.                 "Do you want to copy some drawers to your hard disk right now? The interesting "
  448.                 "fact about this possibility is that this script - in contrast to any other method "
  449.                 "of copying - will automatically alter all the default tools to use your preselected "
  450.                 "viewer programs. It is advisable not to choose viewers that reside on the CD..."
  451.                 (if (>= (/ (getversion) 65536) 37)
  452.                     " Furthermore all protectionflags and comments, which have been lost through the ISO-Filesystem, will be restored in the destination directory."
  453.                     ""
  454.                 )
  455.             )
  456.         )
  457.         (set wanna_copy_yes_or_no
  458.             "Select  \"Yes\", if you want to copy programs to your hard disk, otherwise select \"No\"."
  459.         )
  460.         (set ja_antwort
  461.             "Yes"
  462.         )
  463.         (set nein_antwort
  464.             "No"
  465.         )
  466.         (set hoppla_reader_on_cd
  467.             ("%s%s%s%s"
  468.                 "Oops! You selected a text viewing program that is located on the CD! "
  469.                 "Please note that you will have to insert this CD in the future every time "
  470.                 "you want to read a text that is in the drawer which you want to copy now! "
  471.                 "Optional you can abort the installation process now."
  472.             )
  473.         )
  474.         (set hoppla_viewer_on_cd
  475.             ("%s%s%s%s"
  476.                 "Oops! You selected a picture viewing program that is located on the CD! "
  477.                 "Please note that you will have to insert this CD in the future every time "
  478.                 "you want to view a picture that is in the drawer which you want to copy now! "
  479.                 "Optional you can abort the installation process now."
  480.             )
  481.         )
  482.         (set choose_dir_to_copy_from
  483.             "Please select a drawer that you want to copy from the CD onto your hard disk!"
  484.         )
  485.         (set choose_dir_to_copy_to
  486.             "Please select a drawer of your hard disk that you want to copy the selected drawer of the CD to!"
  487.         )
  488.         (set ready_to_copy
  489.             "Are you ready to copy the drawer \"%s\" into the drawer \"%s\" on your hard disk?"
  490.         )
  491.         (set ready_to_copy_help
  492.             "In the drawer \"%s\" will be created a new \"%s\" named drawer!"
  493.         )
  494.         (set ready_to_copy_1
  495.             "Are you ready to copy the drawer \""
  496.         )
  497.         (set ready_to_copy_2
  498.             "\" into the drawer \""
  499.         )
  500.         (set ready_to_copy_3
  501.             "\" now?"
  502.         )
  503.         (set replacing_defaulttools
  504.             "Some defaulttools - if available - are adjusted just now!"
  505.         )
  506.         (set restoring_flags
  507.             "The original protectionflags and comments, that were lost on the CD, are restored at this very moment!"
  508.         )
  509.         (set copy_more_dirs
  510.             "Copy some more drawers?"
  511.         )
  512.         (set copy_more_dirs_help
  513.             "If you want to copy more drawers then select \"Yes\" now, otherwise \"No\""
  514.         )
  515.         (set save_display_programs
  516.             "Do you want the viewer programs to be installed permanent, so they will even survive a reset?"
  517.         )
  518.         (set save_display_programs_help
  519.             ("%s%s%s"
  520.                 "Selecting \"Yes\" now will install the viewer programs in the form of Assigns "
  521.                 "into your S:user-startup file. If the programs you selected are located on this CD "
  522.                 "I do not recommend this procedure to you!"
  523.             )
  524.         )
  525.         (set add_assigns_to_userstartup
  526.             ("%s%s%s%s"
  527.                 "The Assigns will be added to the end of the file \"S:user-startup\" so "
  528.                 "you don't have to start the Installer over and over again every time you "
  529.                 "want to use this CD in the future. If you do not want this to happen, then "
  530.                 "this is the last chance to skip this process by selecting the right gadget."
  531.             )
  532.         )
  533.         (set add_assigns_to_userstartup_help
  534.             ("%s%s"
  535.                 "The following Assigns will be added: "
  536.                 (if (>= (/ (getversion) 65536) 37)
  537.                     ("Assign MP_READER: %s DEFER\nAssign MP_VIEWER: %s DEFER" mp_reader mp_viewer)
  538.                     ("Assign MP_READER: %s\nAssign MP_VIEWER: %s" mp_reader mp_viewer)
  539.                 )
  540.             )
  541.         )
  542.         (set wanna_copy_to_envarc
  543.             ("%s%s%s"
  544.                 "Do you want to copy some enviroment variables to the ENVARC: drawer? "
  545.                 "This install script makes use of these variables and will work "
  546.                 "more comfortably when they exist."
  547.             )
  548.         )
  549.         (set wanna_copy_to_envarc_help
  550.             ("%s%s%s%s%s"
  551.                 "If you choose not to copy the enviroment variables then this install "
  552.                 "script will not remember your previous decisions after the next "
  553.                 "reset and will therefore not be able to declare these decisions as "
  554.                 "defaults. On the other hand the copying will slow down the startup "
  555.                 "process a teeny-weeny bit..."
  556.             )
  557.         )
  558.         (set activate_more_assigns
  559.             ("%s%s%s%s"
  560.                 "Shall some additional Assigns be activated, to make some of the programs "
  561.                 "on this CD ready for instant startup? (These Assigns will not be installed "
  562.                 "in the s:user-startup file - so after the next reset everything will be back "
  563.                 "as normal!)"
  564.             )
  565.         )
  566.         (set activate_more_assigns_help
  567.             ("%s%s"
  568.                 "I suppose the selection of \"Yes\" - nothing will be broken in your system and "
  569.                 "everything returns to its original state after the next reset!"
  570.             )
  571.         )
  572.     )
  573. )
  574. ;(if (patmatch langstring "Français")
  575. ;    (abort "Français n'est pas encore traduiré, je regrette!")
  576. ;)
  577.  
  578. (if (<> 1 (exists (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More"))))
  579.     (abort no_std_textreader)
  580. )
  581.  
  582. (if (<> 1 (exists (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT"))))
  583.     (abort no_std_pictureviewer)
  584. )
  585.  
  586. (if (<= (/ (getversion) 65536) 34)
  587.     (if (= 0 @user-level)
  588.         (
  589.             (user 1)
  590.             (message
  591.                 warning_old_os
  592.                 (help warning_old_os_help_1 warning_old_os_help_2)
  593.             )
  594.             (user 0)
  595.         )
  596.         (message
  597.             warning_old_os
  598.             (help warning_old_os_help_1 warning_old_os_help_2)
  599.         )
  600.     )
  601. )
  602.  
  603. (if (AND (= 1 (exists "ENV:")) (<> 1 (exists "ENV:MeetingPearls")))
  604.     (makedir "ENV:MeetingPearls")
  605. )
  606.  
  607. (message
  608.     intro_msg
  609.     (help intro_help_1 intro_help_2 intro_help_3 intro_help_4 intro_help_5)
  610. )
  611.  
  612. (if (exists "ENV:MeetingPearls/MP1_READER_CHOICE")
  613.     (
  614.         (set envvar (getenv "MeetingPearls/MP1_READER_CHOICE"))
  615.         (set envvar (+ envvar 0))
  616.     )
  617.     (set envvar 100)
  618. )
  619. (if (AND (>= envvar 0) (<= envvar 7))
  620.     (set reader_default (+ envvar 0))
  621.     (set reader_default (if (>= (/ (getversion) 65536) 39) 1 (if (>= (/ (getversion) 65536) 37) 0 2)))
  622. )
  623.  
  624. (set readchoice
  625.     (askchoice
  626.         (prompt choose_textreader_msg)
  627.         (help @askchoice-help)
  628.         (choices
  629.             (if (= 1 (exists (expandpath ":C/MuchMore")))    "MP_Vol1:C/MuchMore"        "(MP_Vol1:C/MuchMore)")
  630.             (if (= 1 (exists "SYS:Utilities/MultiView"))    "SYS:Utilities/MultiView"    "(SYS:Utilities/MultiView)")
  631.             (if (= 1 (exists "SYS:Utilities/More"))        "SYS:Utilities/More"        "(SYS:Utilities/More)")
  632.             (if (= 1 (exists "C:MuchMore"))            "C:MuchMore"            "(C:MuchMore)")
  633.             (if (= 1 (exists "C:Ed"))            "C:Ed"                "(C:Ed)")
  634.             (if (= 1 (exists "C:TTX"))            "C:TTX"                "(C:TTX)")
  635.             (if (= 1 (exists "C:less"))            "C:less"            "(C:less)")
  636.             others_msg
  637.         )
  638.         (default reader_default)
  639.     )
  640. )
  641.  
  642. (run ("SetEnv MeetingPearls/MP1_READER_CHOICE %ld" (+ readchoice 0)))
  643.  
  644. (if (= readchoice 0)
  645.     (set mp_reader
  646.         (if (= 1 (exists (expandpath ":C/MuchMore"))) (expandpath ":C/MuchMore") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  647.     )
  648. )
  649.  
  650. (if (= readchoice 1)
  651.     (set mp_reader
  652.         (if (= 1 (exists "SYS:Utilities/MultiView")) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  653.     )
  654. )
  655.  
  656. (if (= readchoice 2)
  657.     (set mp_reader
  658.         (if (= 1 (exists "SYS:Utilities/More")) "SYS:Utilities/More" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  659.     )
  660. )
  661.  
  662. (if (= readchoice 3)
  663.     (set mp_reader
  664.         (if (= 1 (exists "C:MuchMore")) "C:MuchMore" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  665.     )
  666. )
  667.  
  668. (if (= readchoice 4)
  669.     (set mp_reader
  670.         (if (= 1 (exists "C:Ed")) "C:Ed" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  671.     )
  672. )
  673.  
  674. (if (= readchoice 5)
  675.     (set mp_reader
  676.         (if (= 1 (exists "C:TTX")) "C:TTX" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  677.     )
  678. )
  679.  
  680. (if (= readchoice 6)
  681.     (set mp_reader
  682.         (if (= 1 (exists "C:less")) "C:less" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  683.     )
  684. )
  685.  
  686. (if (= readchoice 7)
  687.     (
  688.         (if (exists "ENV:MeetingPearls/MP1_READER_PRG")
  689.             (set readerprg_default (getenv "MeetingPearls/MP1_READER_PRG"))
  690.             (set readerprg_default (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 37) (expandpath ":C/MuchMore") "SYS:Utilities/More")))
  691.         )
  692.  
  693.         (set mp_reader
  694.             (askfile
  695.                 (prompt pick_textreader_per_filereq)
  696.                 (help @askfile-help)
  697.                 (default readerprg_default)
  698.             )
  699.         )
  700.         (run ("SetEnv MeetingPearls/MP1_READER_PRG \"%s\"" mp_reader))
  701.     )
  702. )
  703.  
  704. (run ("Assign MP_READER: \"%s\"" mp_reader))
  705.  
  706. (if (exists "ENV:MeetingPearls/MP1_VIEWER_CHOICE")
  707.     (
  708.         (set envvar (getenv "MeetingPearls/MP1_VIEWER_CHOICE"))
  709.         (set envvar (+ envvar 0))
  710.     )
  711.     (set envvar 100)
  712. )
  713. (if (AND (>= envvar 0) (<= envvar 10))
  714.     (set viewer_default (+ envvar 0))
  715.     (set viewer_default 0)
  716. )
  717.  
  718. (set viewchoice
  719.     (askchoice
  720.         (prompt choose_picviewer_msg)
  721.         (help @askchoice-help)
  722.         (choices
  723.             (if (= 1 (exists (expandpath ":C/VT")))        "MP_Vol1:C/VT"            "(MP_Vol1:C/VT)")
  724.             (if (= 1 (exists "SYS:Utilities/MultiView"))    "SYS:Utilities/MultiView"    "(SYS:Utilities/MultiView)")
  725.             (if (= 1 (exists (expandpath ":C/VT_FC24")))    "MP_Vol1:C/VT_FC24"        "(MP_Vol1:C/VT_FC24)")
  726.             (if (= 1 (exists (expandpath ":C/VT_IV24")))    "MP_Vol1:C/VT_IV24"        "(MP_Vol1:C/VT_IV24)")
  727.             (if (= 1 (exists (expandpath ":C/VT_Opal")))    "MP_Vol1:C/VT_Opal"        "(MP_Vol1:C/VT_Opal)")
  728.             (if (= 1 (exists (expandpath ":C/VT_Retina")))    "MP_Vol1:C/VT_Retina"        "(MP_Vol1:C/VT_Retina)")
  729.             (if (= 1 (exists (expandpath ":C/VT_Picasso")))    "MP_Vol1:C/VT_Picasso"        "(MP_Vol1:C/VT_Picasso)")
  730.             (if (= 1 (exists "C:Mostra"))            "C:Mostra"            "(C:Mostra)")
  731.             (if (= 1 (exists "C:Show"))            "C:Show"            "(C:Show)")
  732.             (if (= 1 (exists "C:View"))            "C:View"            "(C:View)")
  733.             (if (= 1 (exists "C:PPShow"))            "C:PPShow"            "(C:PPShow)")
  734.             others_msg
  735.         )
  736.         (default viewer_default)
  737.     )
  738. )
  739.  
  740. (run ("SetEnv MeetingPearls/MP1_VIEWER_CHOICE %ld" (+ viewchoice 0)))
  741.  
  742. (if (= viewchoice 0)
  743.     (set mp_viewer
  744.         (if (= 1 (exists (expandpath ":C/VT"))) (expandpath ":C/VT") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  745.     )
  746. )
  747.  
  748. (if (= viewchoice 1)
  749.     (set mp_viewer
  750.         (if (= 1 (exists "SYS:Utilities/MultiView")) "SYS:Utilities/MultiView" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  751.     )
  752. )
  753.  
  754. (if (= viewchoice 2)
  755.     (set mp_viewer
  756.         (if (= 1 (exists (expandpath ":C/VT_FC24"))) (expandpath ":C/VT_FC24") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  757.     )
  758. )
  759.  
  760. (if (= viewchoice 3)
  761.     (set mp_viewer
  762.         (if (= 1 (exists (expandpath ":C/VT_IV24"))) (expandpath ":C/VT_IV24") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  763.     )
  764. )
  765.  
  766. (if (= viewchoice 4)
  767.     (set mp_viewer
  768.         (if (= 1 (exists (expandpath ":C/VT_Opal"))) (expandpath ":C/VT_Opal") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  769.     )
  770. )
  771.  
  772. (if (= viewchoice 5)
  773.     (set mp_viewer
  774.         (if (= 1 (exists (expandpath ":C/VT_Retina"))) (expandpath ":C/VT_Retina") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  775.     )
  776. )
  777.  
  778. (if (= viewchoice 6)
  779.     (set mp_viewer
  780.         (if (= 1 (exists (expandpath ":C/VT_Picasso"))) (expandpath ":C/VT_Picasso") (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  781.     )
  782. )
  783.  
  784. (if (= viewchoice 7)
  785.     (set mp_viewer
  786.         (if (= 1 (exists "C:Mosta")) "C:Mostra" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  787.     )
  788. )
  789.  
  790. (if (= viewchoice 8)
  791.     (set mp_viewer
  792.         (if (= 1 (exists "C:Show")) "C:Show" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  793.     )
  794. )
  795.  
  796. (if (= viewchoice 9)
  797.     (set mp_viewer
  798.         (if (= 1 (exists "C:View")) "C:View" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  799.     )
  800. )
  801.  
  802. (if (= viewchoice 10)
  803.     (set mp_viewer
  804.         (if (= 1 (exists "C:PPShow")) "C:PPShow" (if (>= (/ (getversion) 65536) 39) "SYS:Utilities/MultiView" (expandpath ":C/VT")))
  805.     )
  806. )
  807.  
  808. (if (= viewchoice 11)
  809.     (
  810.         (if (exists "ENV:MeetingPearls/MP1_VIEWER_PRG")
  811.             (set viewerprg_default (getenv "MeetingPearls/MP1_VIEWER_PRG"))
  812.             (set viewerprg_default (expandpath ":C/VT"))
  813.         )
  814.         (set mp_viewer
  815.             (askfile
  816.                 (prompt pick_picviewer_per_filereq)
  817.                 (help @askfile-help)
  818.                 (default viewerprg_default)
  819.             )
  820.         )
  821.         (run ("SetEnv MeetingPearls/MP1_VIEWER_PRG \"%s\"" mp_viewer))
  822.     )
  823. )
  824.  
  825. (run ("Assign MP_VIEWER: \"%s\"" mp_viewer))
  826.  
  827. (set copysomedirs
  828.     (askbool
  829.         (prompt wanna_copy_dirs_to_hd)
  830.         (help wanna_copy_yes_or_no)
  831.         (choices ja_antwort nein_antwort)
  832.         (default 0)
  833.     )
  834. )
  835.  
  836. (if (= copysomedirs 1)
  837.     (
  838.         (if (patmatch (getdevice mp_reader) (getdevice (expandpath ":")))
  839.             (message hoppla_reader_on_cd)
  840.         )
  841.         (if (patmatch (getdevice mp_viewer) (getdevice (expandpath ":")))
  842.             (message hoppla_viewer_on_cd)
  843.         )
  844.  
  845.         (set fromdir (expandpath ":"))
  846.         (set todir @default-dest)
  847.         (set moredirs 1)
  848.         (until (= moredirs 0)
  849.             (set fromdir
  850.                 (askdir
  851.                     (prompt choose_dir_to_copy_from)
  852.                     (help @askdir-help)
  853.                     (default fromdir)
  854.                 )
  855.             )
  856.             (set todir
  857.                 (askdir
  858.                     (prompt choose_dir_to_copy_to)
  859.                     (help @askdir-help)
  860.                     (default todir)
  861.                 )
  862.             )
  863.             (set imsure
  864.                 (askbool
  865.                     (prompt (ready_to_copy (expandpath fromdir) (expandpath todir)))
  866.                     (help (ready_to_copy_help (expandpath todir) (fileonly fromdir)))
  867.                     (choices ja_antwort nein_antwort)
  868.                     (default 1)
  869.                 )
  870.             )
  871.             (if (= imsure 1)
  872.                 (
  873.                     (set @default-dest todir)
  874.                     (set newdir (tackon todir (fileonly fromdir)))
  875.                     (makedir newdir)
  876.                     (if (exists (cat fromdir ".info"))
  877.                         (
  878.                             (run ("copy \"%s\" TO \"%s\"" (cat fromdir ".info") (cat newdir ".info")))
  879.                             (tooltype
  880.                                 (dest newdir)
  881.                                 (noposition)
  882.                             )
  883.                         )
  884.                     )
  885.                     (copyfiles
  886.                         (prompt ready_to_copy_1 fromdir ready_to_copy_2 todir ready_to_copy_3)
  887.                         (source fromdir)
  888.                         (dest newdir)
  889.                         (all)
  890.                         (infos)
  891.                         (delopts fail)
  892.                         (optional nofail force)
  893.                     )
  894.                     (working replacing_defaulttools)
  895.                     (run ("\"%s\" replace_mp \"%s\" recursive \"%s\" \"%s\"" (expandpath ":C/icontools") newdir mp_reader mp_viewer))
  896.                     (if (>= (/ (getversion) 65536) 37)    ; Unter 1.3 kamen Requester wie 'please insert volume "CD1 in any drive' :-(
  897.                         (
  898.                             (working restoring_flags)
  899.                             (set oldexecutedir @execute-dir)
  900.                             (set @execute-dir newdir)
  901.                             (execute
  902.                                 ("\"%s%s%s%s\" \"%s%s%s\""
  903.                                     (getdevice fromdir)
  904.                                     ":SetAttributesDir/"
  905.                                     (substr (expandpath fromdir) (strlen (expandpath (cat (getdevice (fromdir)) ":"))))
  906.                                     "/SetAttributes"
  907.                                     (getdevice fromdir)
  908.                                     ":SetAttributesDir/"
  909.                                     (substr (expandpath fromdir) (strlen (expandpath (cat (getdevice (fromdir)) ":"))))
  910.                                 )
  911.                             )
  912.                             (set @execute-dir oldexecutedir)
  913.                         )
  914.                     )
  915.                 )
  916.             )
  917.             (set moredirs
  918.                 (askbool
  919.                     (prompt copy_more_dirs)
  920.                     (help copy_more_dirs_help)
  921.                     (choices ja_antwort nein_antwort)
  922.                     (default 0)
  923.                 )
  924.             )
  925.         )
  926.     )
  927.     (set @default-dest "")
  928. )
  929.  
  930. (if (>= (/ (getversion) 65536) 37)    ; Was will ich unter 1.3 mit einer User-Startup? :-(
  931.     (set adduserstartup
  932.         (askbool
  933.             (prompt save_display_programs)
  934.             (help save_display_programs_help)
  935.             (choices ja_antwort nein_antwort)
  936.             (default 0)
  937.         )
  938.     )
  939.  
  940.     (if (= 1 adduserstartup)
  941.         (startup
  942.             "Meeting Pearls Volume 1"
  943.             (prompt add_assigns_to_userstartup)
  944.             (help add_assigns_to_userstartup_help)
  945.             (command
  946.                 (if (>= (/ (getversion) 65536) 37)    ; Diese Abfrage kann irgendwann mal raus, da das hier eh nur bei >=2.04 aufgerufen wird
  947.                     ("Assign MP_READER: %s DEFER\nAssign MP_VIEWER: %s DEFER" mp_reader mp_viewer)
  948.                     ("Assign MP_READER: %s\nAssign MP_VIEWER: %s" mp_reader mp_viewer)
  949.                 )
  950.             )
  951.         )
  952.     )
  953. )
  954.  
  955. (if (AND (exists "ENV:" (noreq)) (exists "ENVARC:" (noreq)))
  956.     (set copyenvarc
  957.         (askbool
  958.             (prompt wanna_copy_to_envarc)
  959.             (help wanna_copy_to_envarc_help)
  960.             (choices ja_antwort nein_antwort)
  961.             (default 0)
  962.         )
  963.     )
  964.  
  965.     (if (= 1 copyenvarc)
  966.         (copyfiles
  967.             (source "ENV:MeetingPearls")
  968.             (dest "ENVARC:MeetingPearls")
  969.             (all)
  970.             (delopts fail)
  971.             (optional nofail force)
  972.         )
  973.     )
  974. )
  975.  
  976. (set startscript
  977.     (askbool
  978.         (prompt activate_more_assigns)
  979.         (help activate_more_assigns_help)
  980.         (choices ja_antwort nein_antwort)
  981.         (default 1)
  982.     )
  983. )
  984.  
  985. (if (= 1 startscript)
  986.     (execute ":S/Meeting-Startup")
  987. )
  988.